﻿Imports Darkorbit
    Public Class frmAccAccount
        Private _frm As frmMain
        Sub New(ByVal frm As frmMain)

            ' Dieser Aufruf ist für den Designer erforderlich.
            InitializeComponent()

            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
            _frm = frm
        End Sub

        Private Sub cmdAddAccount_Click(sender As Object, e As EventArgs) Handles cmdAddAccount.Click
            Dim x As New Account(txtUsername.Text, txtPassword.Text, txtServer.Text)
            _frm.AccountList.Add(x)
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End Sub
    End Class
